home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / MPW Oberon 2.1168 / OInterfaces / AEUserTermTypes.mod < prev    next >
Encoding:
Text File  |  1995-08-10  |  2.4 KB  |  79 lines  |  [TEXT/MPS ]
  1. (*
  2.      File:        AEUserTermTypes.mod
  3.  
  4.      Contains:    AppleEvents AEUT resource format Interfaces.
  5.  
  6.      Version:    Technology:    System 7.5
  7.                  Package:    Universal Interfaces 2.0 in “MPW Latest” on ETO #17
  8.  
  9.      Copyright:    © 1984-1995 by Apple Computer, Inc.
  10.                  All rights reserved.
  11.  
  12.      Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13.                  stack.  Include the file and version information (from above)
  14.                  in the problem description and send to:
  15.                      Internet:    apple.bugs.applelink.apple.com
  16.                      AppleLink:    APPLE.BUGS
  17.  
  18. *)
  19.  
  20. (*$TAGS-*)
  21. (*$CALLING PASCAL*)
  22. MODULE AEUserTermTypes;
  23.  
  24. IMPORT SYSTEM;
  25.  
  26. (* $PUSH*)
  27. (* $ALIGN MAC68K*)
  28. (* $LibExport+*)
  29.  
  30. CONST
  31.     kAEUserTerminology*            = LONG("aeut");                        (*  0x61657574  *)
  32.     kAETerminologyExtension*        = LONG("aete");                        (*  0x61657465  *)
  33.     kAEScriptingSizeResource*    = LONG("scsz");
  34.  
  35.     kAEUTHasReturningParam*        = 31;                            (* if event has a keyASReturning param *)
  36.     kAEUTOptional*                = 15;                            (* if something is optional *)
  37.     kAEUTlistOfItems*            = 14;                            (* if property or reply is a list. *)
  38.     kAEUTEnumerated*                = 13;                            (* if property or reply is of an enumerated type. *)
  39.     kAEUTReadWrite*                = 12;                            (* if property is writable. *)
  40.     kAEUTChangesState*            = 12;                            (* if an event changes state. *)
  41.     kAEUTTightBindingFunction*    = 12;                            (* if this is a tight-binding precedence function. *)
  42.     kAEUTApostrophe*                = 3;                            (* if a term contains an apostrophe. *)
  43.     kAEUTFeminine*                = 2;                            (* if a term is feminine gender. *)
  44.     kAEUTMasculine*                = 1;                            (* if a term is masculine gender. *)
  45.     kAEUTPlural*                    = 0;                            (* if a term is plural. *)
  46.  
  47.  
  48. TYPE
  49.     TScriptingSizeResource* = RECORD
  50.         scriptingSizeFlags*:        INTEGER;
  51.         minStackSize*:            LONGINT;
  52.         preferredStackSize*:        LONGINT;
  53.         maxStackSize*:            LONGINT;
  54.         minHeapSize*:            LONGINT;
  55.         preferredHeapSize*:        LONGINT;
  56.         maxHeapSize*:            LONGINT;
  57.     END;
  58.  
  59.  
  60. CONST
  61. (*    If kLaunchToGetTerminology is 0, LONG("aete") is read directly from res file.  If set
  62.         to 1, then launch and use LONG("gdut") to get terminology. *)
  63.     kLaunchToGetTerminology*        = ASH(1,15);
  64. (*    If kDontFindAppBySignature is 0, then find app with signature if lost.  If 1, 
  65.         then don't *)
  66.     kDontFindAppBySignature*        = ASH(1,14);
  67. (*     If kAlwaysSendSubject 0, then send subject when appropriate. If 1, then every 
  68.         event has Subject Attribute *)
  69.     kAlwaysSendSubject*            = ASH(1,13);
  70.  
  71. (* old names for above bits. *)
  72.     kReadExtensionTermsMask*        = ASH(1,15);
  73.  
  74.  
  75. (* $ALIGN RESET*)
  76. (* $POP*)
  77.  
  78.  END AEUserTermTypes.
  79.